home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch17 / 6Sph3Cyl.ray < prev    next >
Text File  |  1999-07-06  |  2KB  |  84 lines
  1. Viewpoint(1000, 0.6, -0.6)
  2. AmbientLight(128, 128, 128)
  3. LightSource(-1000, -500, 1000, 255, 255, 255)
  4. LightSource(1000, -500, 1000, 255, 255, 255)
  5. Cylinder(15,     ' Radius
  6.   0, 100, 0,     ' Point1
  7.   0, -100, 0,    ' Point1
  8.   0.5, 0.1, 0.1, ' Ambient.
  9.   0.5, 0.1, 0.1, ' Diffuse.
  10.   20, 0.35,      ' Specular.
  11.   0, 0, 0,       ' Reflected.
  12.   3, 1, 1.4,     ' TransN, n1, n2.
  13.   0, 0, 0        ' Tansmission.
  14. )
  15. Sphere(35, 0, 100, 0,
  16.   0.5, 0.1, 0.1, ' Ambient.
  17.   0.5, 0.1, 0.1, ' Diffuse.
  18.   20, 0.35,      ' Specular.
  19.   0, 0, 0,       ' Reflected.
  20.   3, 1, 1.4,     ' TransN, n1, n2.
  21.   0, 0, 0        ' Tansmission.
  22. )
  23. Sphere(35, 0, -100, 0,
  24.   0.5, 0.1, 0.1, ' Ambient.
  25.   0.5, 0.1, 0.1, ' Diffuse.
  26.   20, 0.35,      ' Specular.
  27.   0, 0, 0,       ' Reflected.
  28.   3, 1, 1.4,     ' TransN, n1, n2.
  29.   0, 0, 0        ' Tansmission.
  30. )
  31. Cylinder(15,     ' Radius
  32.   100, 0, 0,     ' Point1
  33.   -100, 0, 0,    ' Point1
  34.   0.1, 0.5, 0.1, ' Ambient.
  35.   0.1, 0.5, 0.1, ' Diffuse.
  36.   20, 0.35,      ' Specular.
  37.   0, 0, 0,       ' Reflected.
  38.   3, 1, 1.4,     ' TransN, n1, n2.
  39.   0, 0, 0        ' Tansmission.
  40. )
  41. Sphere(35, 100, 0, 0,
  42.   0.1, 0.5, 0.1, ' Ambient.
  43.   0.1, 0.5, 0.1, ' Diffuse.
  44.   20, 0.35,      ' Specular.
  45.   0, 0, 0,       ' Reflected.
  46.   3, 1, 1.4,     ' TransN, n1, n2.
  47.   0, 0, 0        ' Tansmission.
  48. )
  49. Sphere(35, -100, 0, 0,
  50.   0.1, 0.5, 0.1, ' Ambient.
  51.   0.1, 0.5, 0.1, ' Diffuse.
  52.   20, 0.35,      ' Specular.
  53.   0, 0, 0,       ' Reflected.
  54.   3, 1, 1.4,     ' TransN, n1, n2.
  55.   0, 0, 0        ' Tansmission.
  56. )
  57. Cylinder(15,     ' Radius
  58.   0, 0, -100,    ' Point1
  59.   0, 0, 100,     ' Point1
  60.   0.1, 0.1, 0.5, ' Ambient.
  61.   0.1, 0.1, 0.5, ' Diffuse.
  62.   20, 0.35,      ' Specular.
  63.   0, 0, 0,       ' Reflected.
  64.   3, 1, 1.4,     ' TransN, n1, n2.
  65.   0, 0, 0        ' Tansmission.
  66. )
  67. Sphere(35, 0, 0, 100,
  68.   0.1, 0.1, 0.5, ' Ambient.
  69.   0.1, 0.1, 0.5, ' Diffuse.
  70.   20, 0.35,      ' Specular.
  71.   0, 0, 0,       ' Reflected.
  72.   3, 1, 1.4,     ' TransN, n1, n2.
  73.   0, 0, 0        ' Tansmission.
  74. )
  75. Sphere(35, 0, 0, -100,
  76.   0.1, 0.1, 0.5, ' Ambient.
  77.   0.1, 0.1, 0.5, ' Diffuse.
  78.   20, 0.35,      ' Specular.
  79.   0, 0, 0,       ' Reflected.
  80.   3, 1, 1.4,     ' TransN, n1, n2.
  81.   0, 0, 0        ' Tansmission.
  82. )
  83.  
  84.